RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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+36 VAX-1 SL A oy 
DISKS veh STER: chONOFE gacitPR. BLI; * te 


i 3 eh | 9 Ne 
; g P 008 %BLISS32C 

: ¢ P Ope ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 

: : 006 ds 

; 8 G08 J esse 

: 1% Bo%p ! PITITITITILILI LLL LIL LILI LiL LiL iLL Li TiLitiiitiiiiiiiiiiiittTi 
$ :® * 
3 11 011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: \§ Big 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 17 Bota : i. ALL RIGHTS RESERVED. 
; 15 0015 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND serine * 
; 16 0016 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 17 0017 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI ARE OR ANY OTHER * 
; 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 19 0019 1!* QO PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: sy 505 : & TRANSFERRED. * 
Ps : a 
; $§ i t4 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 2 002 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Se pose ! te CORPORATION. * 
3 ie ¥ 
: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 27 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
;:. @& 0028 1 !* * 
. = ik 1 Ie * 
3 $ Boss : ‘adh chiki ct iid tanta 
; 32 003¢ 1 ite 

: $2 BOR ' FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: $ ones ! ABSTRACT: Routines for checking how full the text portion of a page is. 

: * 44 : ; ENVIRONMENT: Transportable 

: 35 0039 1 i AUTHOR: R.W. Friday CREATION DATE: May, 1978 

; 40 0040 1! 


$73 =74 P eof 
BLi 2.V4.0-742 age (2s 


TPR Sep-1984 VAX-11 
v94-000 Revision History 1b- at 9}: 38: $¢ DISKSVMSMASTER:CR RUNOFF SRCITPR.BLI:1 


; : re. ] peerte "Revision History’ 

; rk 1 | MODIFIED BY: 

> 45 4, 1 

; 6 45 1: 007 KAD00007 Keith Dawson 07-Mar-1983 
: 4 e 1 i Global edit of all modules. Updated module names, idents, 
; 48 0047 E copyright dates. Changed require files to BLISS library. | 
: 50 0049 1 i- 
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' XPORT Library 

! RUNOFF variant definitions 
! DSRPLUS BLISS Library 

' DSR BLISS Library 


TABLE OF CONTENTS: 
BRARY ‘REQ:DSRLIB'; 
EXTERNAL REFERENCES: 


BRARY ‘REQ:DPLLIB'; 
I 


LSE 
EQUATED SYMBOLS: 


BRARY ‘NXPORT:XPORT'; 
F DSRPLUS Z%THEN 


! INCLUDE FILES: 
Ll 
REQUIRE ‘REQ:RNODEF'; 
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on 


; 
cd 1B-Sen-1964 01:55:26  vAKet Bl s8-3 


ZSBTTL ‘Rout 


e TPR‘ 


in 
GLOBAL ROUTINE TPR (COUNT) = 


'¢ 


le4 
} FUNCTIONAL DESCRIPTION: 


TPR is used to see if COUNT Lines are still available in 
the text portion of a page. The text portion include footnotes. 


FORMAL PARAMETERS: 
COUNT indicates how many Lines are to be available. 


! IMPLICIT INPUTS: None 
! IMPLICIT OUTPUTS: None 


50 04 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns TRUE if the Suge re ree number of Lines are available, 
otherwise returns FALSE. 


SIDE EFFECTS: None 
BEGIN 


IF .phan_top_page 
BR (ROT =phen_paging) 


N 
RETURN true; 
= a + .phan_lines_tp + .hct_layoutn) GTR .phan_Llines 
RETURN false 
ELSE 
RETURN true 


END; ‘End of TPR 


-TITLE TPR 
-IDENT \V04-000\ 
eEXTRN FNCT, FNESIZ, FNISIZ 
~-EXTRN HCT, PHAN 
-PSECT S$CODES,NOWRT,2 

04 000 -ENTRY TPR, Save R2 

es 000 MOVAB PHAN, R 

E BLBS PHAN, 1 

E p f BLBC @PHAN+40, 1$ 

C1 00 ADDL PHAN+12, COUNT, RO 

CO 00016 ADDL HCT+32, RO 


000000006 


EF 
6 
8 8B 
A 
EF 


52 
1A 
16 

AL ¢ 
50 000000006 


4.0=742 
UNOFF.SRCJTPR.BLI;1 


s ‘| 
TPR 4 VAX=11 Bliss-32 V4.0-742 5 
v04-000 Routine TPR 18: 330 1382 9}: 38; $¢ DISKSVMSMASTER=CRUNOFF .SRCITPR.BLI:1 ro (4) 
04 82 i D1 Y cMPL RO. @PHAN+G F 
v4 CLRL = RO + 0263 
4 000 RET ; 
50 01 DO 000 6 1$ MOVL #1, RO ; 
04 000 RET + 0265 


; Routine Size: 42 bytes, Routine Base: S$CODE$ + 0000 


a . - - y 


N 1 
TPR 16-Sep-1984 01:55: VAX-11 Bliss-32 V4.0-742 Page 6 
v04-000 Routine TPBEQL 12-808- 1 3b 93 8ai58 DISKSVMSMASTER: CRUNOFF .SRCJTPR.BLI;1 ° (5) | 
: 140 66 1 ZSBTTL ‘Routine TPBEQL' 
; 123 ? ! GLOBAL ROUTINE TPBEQL (COUNT) = 
3 128 8 1 44 
3 Vee ty ! } FUNCTIONAL DESCRIPTION: 
: 146 % 1! TPBEQL is used to see if exactly COUNT Lines are still available in 
; \ot : the text portion of a page. The text portion include footnotes. 
$ 138 G o? ! FORMAL PARAMETERS: 
3 131 8 rs : COUNT indicates how many Lines are to be available. 
3 18 8 79 1°! IMPLICIT INPUTS: None 
3 «6154 » 3% 
3 335 0281 1 ! IMPLICIT OUTPUTS: None 
; 156 0 ¢ 1! 
a 95r 0 4 1 ! ROUTINE VALUE: 
; «158 0284 1 ! COMPLETION CODES: 
3; 159 OSae 1! 
; 160 0286 1! Returns TRUE if onpetty the specified number of Lines are available, 
: 6161 0287 1! otherwise returns FALSE. 
3 166 0288 1! 
, 0289 1 ! SIDE EFFECTS: None 
: 164 0290 1! 
: 165 0291 1 !-- 
: 166 0 3 1 
: 167 029 BEGIN 
3; 168 0294 
$ 19? 0996 IF (,.count + .phan_lines_tp + .hct_layoutn) NEQ .phan_Llines 
: 171 0297 RETURN false 
5 ive 0298 
s 7 0299 RETURN true 
3; 174 0300 
s 175 0301 1 END; ‘End of TPBEQL 
0000 00000 -ENTRY TPBEQL, Save nothing ; 0267 
50 04 aC 00000090G EF C1 00002 ADDL3 PHAN+12, COUNT, RO 3; 0295 
50 000000006 fF CO 88 ADDL2 HCT+32, RO 3 | 
00000000G_ ‘FF 9 D1 1 CMPL RO, @PHAN+4 3 
2 13 0001 BEQL 1$ 3 
0 yi 0018 CLRL RO 3; 0299 
50 01 6 O00te 1$ MOV #1, RO : 
be 0021 RET ; 0301 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 002A 
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4 01:55: VAX-11 Bliss-32 V4.0-742 Pa 7 
Routine TPFEQL Hn Oh: 88558 DISKSVMSMASTER: CRUNOFF.SRCJTPR.BLI;1 ” (6) 


o¢ ZSBITL ‘Routine TPFEQL' 

? GLOBAL ROUTINE TPFEQL = 
05 '+¢+ 
FUNCTIONAL DESCRIPTION: 

0 TPFEQL is used to see if exactly enough space is available in the 


! 

text portion of the page to fit one or more footnotes there. | 
; FORMAL PARAMETERS: = None 
i IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 

i COMPLETION CODES: 

i] 
' 
{ 
! 
! 
! 


Returns the number of footnotes for which e 
available. Returns 0 if no footnotes will f 


i SIDE EFFECTS: None 


yeevey enough room is 


BEGIN | 
LOCAL 
total_fit_size; 


total_fit_size = 0; !Don't know if any footnotes will fit yet. 


'Now, Loop through the List of footnotes that are elegible to go out. 

‘Quit either when you run out of footnotes to look at, or you run out 

‘of footnotes that will fit. 

INCR i FRON 1 TO .fnct_ready DO 


BEG 
'First check to see if there is enough room at all for this footnote. 


LA. AAANIAI NAIA ANA AIAI AWWW WANNA AAAI AANA 


PAWN AAA AAAI IPPON NIPONUPONINUN 2 OO OO ae OO 
NOUS WN HO ODNOUNE WN $0 ODNOU EWN OO ONOU SWAN "O0OW 


I ne eines geq (.total_fit_size + .fnesiz C.i - 1 + .fnct_old] + .phan_lines_tp + .hct_layoutr 
'Ok, we know there's a chance. Now check to see if we're exactly at the 
‘right spot. 


none (,total_fit_size + .fnesiz C.i - 1 + .fnct_old)) 
aceine the exact position where some footnotes can be output 
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PRR 


‘Ideally, we could just exit with the value of I indicating the 

‘number of footnotes that will exactly fit. However, there is a 

‘strange case in which the footnote generates no text. for example, 

'the user might have snqut a footnote containing only indexing commands. 

'The 10; Low ing odjusts or that, if that is the case. 

INCR j FROM .I TO .fnct_ready -_1 DO 
IF .fmesiz C.j + .fnct_old)] EQL 0 !Look ahead one more footnote 


PPP PB EE BE ANNONA BAI UPPIPITUNIPUNINPINNID I tt I SS 


SOOOCOOCOCOOOOCOoooO 
WAAL. NIAAA AI WNW 
PPP 

DONO SW —OO 


'Ok, the next footnote is a zero-length one. 


ee —_ 


2 
TPR ibes6 -1984 01:55: VAX-11 Bliss-32 V4.0-742 Page 
v04-000 Routine TPFEQL 12-808-1 32 93:38:39 DISKSVMSMASTER: CRUNOFF.SRCIJTPR.BLI;1 . (6s | 
3 59 4 [et 7 
; 5 20 4 ELSE 
: $ é3 Q EXITLOOP; 
; 8 65 4 'Now, finally, we've included any zero-length footnotes. 
: 539 64 4 RETURN wi : ° 
; re 0 2 4 
3 ri} 0 8S ; ‘Didn't fit exactly, but still fit. Add its size to the total 
3 at 8 69 i ‘size of footnotes that will fit so far at this spot. 
: 265 3 0 4 total_fit_size = .total_fit_size + .fnesiz C.i - 1 + .fnct_old); 
: 248 0378 ‘Nothing fits. Some previous footnotes may have fitted, but this one 
> 249 0374 lis jus a bit too large. 
: 250 0375 RETURN 0 
3 332 Ba78 ; END; 
3 | 
; 2¢ 0378 ‘Falling through the loop means either no footnotes at all were found, 
; See 0379 2 ‘or, we were not exactly at the correct position for outputting at 
3 6255 0380 2 ‘Least one footnote, even though there might be footnotes ready. 
3 528 tet § RETURN 0 
; $34 O3a8 1 END; 'End of TPFEQL 
| 
| 
007C 00000 ENTRY TPFEQL, Save R2,R3,R4,R5,R6 3 0303, 
56 00000000G EF 9E 00002 MOVAB FNESIZ-4, R6 ; 
55 000000006 EF 9€ 00009 MOVAB FNCT+12, R5 : 
54 F8 AS 00 00010 MOVL FNCT#4, R4 ; 0337. 
52 7C 00014 CLROQ I : 
50 11 00016 BRB 6$ ; 
50 52 65 C1 00018 1$: ADDL3 FNCT+12, I, RO 3; 0341 
30 6640 00 0001C MOVL. FNESIZ-4(R6], RO ; 
51 5 50 ¢1 00020 ADDL3 RO, TOTAL_FIT_SIZE, R1 ; 
50 51 00000000G EF (C1 Bn0 4 ADDL PHAN+12, R1, RO 3 
50 00000000G EF CO 000 g ADDL2 HCT+32, RO 3 
50 000000006 FF D1 000 CMPL a@PHAN+4, RO : 
0 19 OO0O3A BLSS 7$ 3 
1 DoD 99 C PUSHL 1 > 0346. 
oC AF 1 FB CALLS #1, TPBEQL ; 
1B 0 §? 004 BLBC ; 
50 FF A : 004 MOVAB -1(R2), J ; 0356 | 
Of 1 Oheb BRB 3 3 
51 50 65 (Ci 4B 2$: ADDL3 eH 4° RO : 
04 A641 BS 004F TSTL FNESIZER1 ; 
7 1 H BNEQ 4$ 3 
D INCL I ; 0359 
EF 50 F8 aS F 7 3$: AOBLSS FNCT+4, J, 2$ ; 0356 
50 5 ? : 4$: move I, RO : 0 
50 % 65 (C1 60 5$: ADDL FNCT+12, I, RO s 0370 | 
5 6640 CO 00064 ADDL2 FNESIZ-4CROJ, TOTAL_FIT_SIZE : 


ieee cei 1B-sep-1966 01:55:26 VANCTT aLisseB2 v4.dc74z Page 49 
r 52 HEA AR tomes get : 538 


; Routine Size: 111 bytes, Routine Base: S$CODE$ + 004C 
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2 
1hesep-1984 31:55: VAX=11 BLiss=32 V4.0-762 Page 10. 
Routine TPFFIT hae ets He oS Be} Me by oP TE to to dG | 
‘ AXSBTTL "Routine TPFFIT | 


Fl 
GLOBAL ROUTINE TPFFIT 


. + 
ts FUNCTIONAL DESCRIPTION: ° 
90 : Checks to see how many" footnotes could be output in the space remaining on the page. 
8 4 } This routine doesn't check as closely as TPFEQL: it's ok for extra space to be available. 
0 $8 FORMAL PARAMETERS: —§ None 
0 95 i IMPLICIT INPUTS: None | 
0 44 | IMPLICIT OUTPUTS: None 
0399 1 i ROUTINE VALUE: | 
Bene COMPLETION CODES: 
ot 04 ‘ Returns the number of footnotes for which sufficient space is available on | 
040 ' the current page. 
0404 ! 
0405 ! SIDE EFFECTS: None 
0406 ' 
0408 
04 BEGIN 
04 
04 LOCAL 
total_fit_size; 
total_fit_size = 0; 'Don't know if any footnotes will fit yet. | 


‘Loop through the List of read footnotes, and quit when you find the first one 
'that won't fit angaese. 
INCR i FROM 1 TO .fnct_ready DO 


'NOTE: The following logical expression is almost syyreenent to 
'TPR (.TOTAL_FIT_SIZE + .FNESIZ C.1 = 1 + .FNCT_OLDJ) except that 
zou can't use TPR when checking for space for footnotes. That's 
‘because when it's time to check for footnote space, PHAN _TOP_PAGE 


: UE 
‘would ultimately result in all ready footnotes being output, even 
‘if there's not soougn space 


| 

| 

| 
} 

| 
and when that's the case TPR always returns TRUE, which | 
| 
IF .phan_llines GEQ total_fit_size + .fnesiz C.i - 1 + .fnct_old] + .phan_lines_tp + shet_Layoutn) | 
| 


ROR OROROROROROPU ROPOPOPOPOPOPONOPONONONONUNUNUNNI) 2 2 
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total_fit_size = .total_fit_size + .fnesiz C.i - 1 + .fnct_old) ‘add size to running total. 

RETURN .i = 1; 'The Last footnote looked at is the last one that will fit. 
‘Falling through the loop means that all the footnotes will fit. 
RETURN .fnct_ready | 


END; ‘End of TPFFIT 


F 
Routine TPFFIT 1973 


; Routine Size: 76 bytes, Routine Base: S$CODES + 00BB 


6 
Sep 
Sep 


001C 000 
54 000000006 EF 9E 0002 
3 D4 B88 
9 D4 00008 
11 00000 
51 2 6s AS C1 QOOOF 1$: 
QOOODO00GEF41 DO 00014 
51 52 C1 0001 
1 BO 8888086 EF 3 00 
1 00000000G EF CO 000 
51 00000000G FF 01 88 
93 19 000 
53 ‘ CO 000 
08 11 0003A 
51 FF = =AO 4 B85 C 2$: 
50 51 D Oey 
04 0004 
C7 50 64 F3 00044 3$: 
50 64 00 00048 
04 00048 


pa19B¢ 13:08:94 


VAX=11 
DISK$V meh 


ss-32 V4.0-742 
STER: (RUNOFF .SRCJTPR.BLI; "4 


TPFFIT, Save R2,R3,R4 


FNCT+4 
TOTAL_FIT_SIZE 


HCT+3 


eras, R1 


R2, TOTAL_FIT_SIZE 
-1(RO), R1 
R1, RO 


FNCT+4, I 
FNCT+4, R 


§ 1 


! | 
Sl 
eee ae aL ea ee ee 


| 
2 | 

TPR 18-se -1984 255: VAX-11 Bliss-32 V4.0-742 P 12 
04-000 Routine TPFSKP ereee= 1 8he Fh: 88SF Peek tea hGuOee Secarpr.euis1 om cas 
XSBITL "Routine TPFSKP" | 
| 
| 


; Routine Size: 50 bytes, Routine Base: SCODES + 0107 


s 316 437 1 $ 
; ? a : GLOBAL ROUTINE TPFSKP (FOOTNOTE_COUNT) = : 
; i$ 440 1 !+4+4 ; 
; \8 ret ! FUNCTIONAL DESCRIPTION: : 
: 320 443 1! Computes how many Lines need to be skipped in order to be precisel ; 
: 1 beee : } at the position Yor outputting a certetn number of footnotes. . | : 
; § Beto ! FORMAL PARAMETERS: | : 
3 $52 Rees ! FOOTNOTE_COUNT indicates how many of the ready footnotes are to be output. : 
aed 0450 1 ! IMPLICIT INPUTS: None : 
; 328 0451 1! : 
3 $3 Boag 1 ! IMPLICIT OUTPUTS: None 3 
; 0 0455 1! $ 
s 33) 0454 1 ! ROUTINE VALUE: 
; 3 0455 1 ! COMPLETION CODES: None 
; 35 0456 1! 
H 34 0457 1 ! SIDE EFFECTS: None 
: 335 0458 1! | 
; 336 0459 1 !-- 
; 357 0460 1 
; 338 0461 BEGIN 
; 339 046 
; 340 046 LOCAL 
: «341 0464 2 total_fit_size; 
3 306 0465 2 
; 34 0466 total_fit_size = 0; 
3 344 0467 ‘Add Up sizes of the specified number of footnotes. 
; 345 0468 INCR i FROM 1 TO .footnote_count DO | 
; 346 0469 '(Forget old footnotes.) 
; 4 Bene total_fit_size = .total_fit_size + .fnesiz C.i - 1 + .fnet_old); 
3 $c) oes 5 RETURN (.phan_llines - (.total_fit_size + .phan_lines_tp + .hct_layoutn)) 
: 351 0474 1 END; 'End of TPFSKP | 
| 
ss p00 -ENTRY TPFSKP, Save R2 ; 0438 
50 7C 0000 CLRQ j 3 0470 | 
10 11 00004 BRB $ : 
52 50 444443 EF C1 Bane 1$ ADDL FNCT#+12, I, R2 3 | 
31 00000000GEF42 ¢ OE ADDL2 FNESIZ-4(R2), TOTAL_FIT_SIZE : 
EB 0 04 AC F3 00016 28 AOBLEQ FOOTNOTE_COUNT, I, TS ; 
@} 4444 0G EF CO 0001 ADDL PHAN+12, 3 0472 | 
1 000000006 4 C0 00 ADDL HCT+32, 3 
50 00000000G FF 1 ¢3 000 SUBL R1, @PHAN+4, RO ; 
04 00031 RET : 0474 | 
| 
| 
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; Routine Size: 


Page 


BB: 
16-Sep-1984 01:55: VAX=11 Bliss-32_ V4.0-742 
Routine TPFSI2 122885: 382 93:38:39 DISKSVMSMASTER: CRUNOFF.SRCJTPR.BLI;1 


475 1 &SBITL ‘Routine TPFSIZ' 
tis : GLOBAL ROUTINE TPFSIZ (FOOTNOTE_COUNT) = 
ote 1 l+4 
4 ! FUNCTIONAL DESCRIPTION: 
Bi } ! Computes how many Lines a specified number of footnotes occupies. 
bess i FORMAL PARAMETERS: 
acs ! FOOTNOTE_COUNT indicates how many of the ready footnotes are to be counted. 
bc? IMPLICIT INPUTS: None 
0689 1 | IMPLICIT OUTPUTS: None 
0490 1! 
0491 1 ! ROUTINE VALUE: 
983 : COMPLETION CODES: 
beoe : Returns the number of Lines that the footnotes will take up. 
0496 1 | SIDE EFFECTS: None 
0497 1! 
0498 1 !-- 
0499 1 
0500 BEGIN 
0501 
0206 LOCAL 
050 total_fit_size; 
0504 
0505 total_fit_size = 0; 
0506 ‘Add Up sizes of the specified number cf footnotes. 
0507 INCR i FROM 1 TO .footnote_count DO 
0508 '(Forget old footnotes.) 
£344 total_fit_size = .total_fit_size + .fnesiz C.i - 1 + .fnct_old]; 
0511 RETURN .total_fit_size 
b2t6 2 
0513 1 END; ‘End of TPFSIZ 
..0004 00000 ENTRY TPFSIZ, Save R2 
52 D4 00002 CLRL =‘ TOTAL_FIT_SIZE 
0 D4 00004 CLRL J 
10 11 000 BRB $ 
51 50 454443 EF C1 00008 1$ ADDL FNCT+12, I, R1 
3 000009 GEF41 CO 0001 ADDL2 FNESIZ-4CR1], TOTAL_FIT_SIZE 
EB 5 4 af F3 00018 2$ AOBLEQ FOOTNOTE_COUNT, I, TS 
50 5 p 001D MOVL TOTAL_FIT_SIZE. RO 
4 00020 RET 


33 bytes, Routine Base: S$CODE$ + 0139 


vou-000 Routine TPFSIZ ibose 7368-1382 94: 88: $f bs KSVMSNA SfeRs RUNOFF SecaTPR. BLI; te 


iM 0313 1 
; BF 15 1 END ! 
; 335 16 0 ELUDOM End of module 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 346 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Beaters i aed Rote eee ~om Syakols ooro= one Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 

> 7$255$puUAz28: ‘RUNDE E. SRC IDSRLIB.L32;1 1248 17 1 Be 00:00.3 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: TPR/OBJ=OBJ$: TPR MSRC$: TPR/UPDATE=(ENHS$: TPR) 
ig 346 goge + 0 data bytes 


Sleeeed Time: 00:17. 
Lines/CPU Min: 948 
meg Ak ay 14640 

"Y Used: 48 pages 
Compilation Complete 
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